﻿Imports System.Data
Imports System.Data.SqlClient
Imports CondorTravel.BE
Imports CondorTravelUTIL.DL



Public Class UnidadDALC


    Public Function ListarUnidad() As List(Of UnidadBE)

        Dim sqlUnidadListar As String
        Dim listUnidadBE As List(Of UnidadBE) = Nothing
        Dim objUnidadBE As UnidadBE = Nothing
        Dim ds As DataSet
        Dim dt As DataTable

        Try

            sqlUnidadListar = "SP_UnidadServicioList"

            Dim oDatos As New AccesoDatos()
            Dim bExito As Boolean
            Dim sMensaje As String = String.Empty
            Dim i As Integer = 0

            ds = oDatos.DevuelveDataSet(sqlUnidadListar, bExito, sMensaje, Nothing)
            dt = ds.Tables(0)


            listUnidadBE = New List(Of UnidadBE)()

            If dt.Rows.Count > 0 Then

                While i < dt.Rows.Count
                    objUnidadBE = New UnidadBE()
                    objUnidadBE.Codigo = CType(dt.Rows(i).ItemArray(0).ToString, Integer)
                    objUnidadBE.Descripcion = dt.Rows(i).ItemArray(1).ToString
                    i = i + 1

                    listUnidadBE.Add(objUnidadBE)
                End While
            End If

        Catch ex As Exception
            Throw
        End Try

        Return listUnidadBE

    End Function


End Class
